home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMIO8.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  3KB  |  110 lines
  1. program DemoIOEight;
  2. {demIO8 - number field input}
  3. Uses DOS, CRT,
  4.      totFAST, totIO1, totIO2, totSTR;
  5.  
  6. var
  7.   Field1, Field2: IntIOOBJ;
  8.   Field3, Field4: RealIOOBJ;
  9.   Field5:         FixedRealIOOBJ;
  10.   Field6:         HexIOOBJ;
  11.   Keys: ControlKeysIOOBJ;
  12.   Manager: FormOBJ;
  13.  
  14. procedure InitVars;
  15. {}
  16. begin
  17.    with Field1 do
  18.    begin
  19.       Init(40,3,5);
  20.       SetLabel('Field 1  (IntIOOBJ)');
  21.       SetMessage(30,25,'Default settings');
  22.    end;
  23.    with Field2 do
  24.    begin
  25.       Init(40,5,5);
  26.       InitFormat;
  27.       SetLabel('Field 2  (IntIOOBJ)');
  28.       SetValue(69);
  29.       SetRules(EraseDefault+JumpIfFull);
  30.       SetMessage(5,25,'InitFormat; SetValue(69); SetRules(EraseDefault+JumpIfFull);');
  31.    end;
  32.    with Field3 do
  33.    begin
  34.       Init(40,7,10);
  35.       SetLabel('Field 3 (RealIOOBJ)');
  36.       SetMessage(30,25,'Default settings');
  37.    end;
  38.    with Field4 do
  39.    begin
  40.       Init(40,9,15);
  41.       InitFormat;
  42.       FormatPtr^.SetSeparators('*',',','.');
  43.       FormatPtr^.SetPrefixSuffix('','FR');
  44.       FormatPtr^.SetJustification(JustRight);
  45.       SetLabel('Field 4 (RealIOOBJ)');
  46.       SetCursor(CursLeft);
  47.       SetMessage(5,25,'InitFormat; FormatPtr^... SetCursor(CursLeft);');
  48.    end;
  49.    with Field5 do
  50.    begin
  51.       Init(40,11,8,2);
  52.       SetLabel('Field 5 (FixedRealIOOBJ)');
  53.       SetMessage(30,25,'Default settings');
  54.    end;
  55.    with Field6 do
  56.    begin
  57.       Init(40,13,5);
  58.       SetLabel('Field 6  (HEXIOOBJ)');
  59.       SetMessage(30,25,'Default settings');
  60.    end;
  61.    Keys.Init;
  62. end; {InitVars}
  63.  
  64. procedure DisposeVars;
  65. {}
  66. begin
  67.    Field1.Done;
  68.    Field2.Done;
  69.    Field3.Done;
  70.    Field4.Done;
  71.    Field5.Done;
  72.    Field6.Done;
  73.    Keys.Done;
  74. end; {DisposeVars}
  75.  
  76. begin
  77.    InitVars;
  78.    ClrScr;
  79.    Screen.FillBox(10,2,70,15,79,1);
  80.    Screen.WriteCenter(15,79,' Press Tab to change fields. F10 to finish. ');
  81.    with Manager do
  82.    begin
  83.       Init;
  84.       AddItem(Keys);
  85.       AddItem(Field1);
  86.       AddItem(Field2);
  87.       AddItem(Field3);
  88.       AddItem(Field4);
  89.       AddItem(Field5);
  90.       AddItem(Field6);
  91.       if Go = Finished then
  92.       begin
  93.          GotoXY(1,18);
  94.          writeln('Your input was:');
  95.          writeln('Field 1: ',Field1.GetValue);
  96.          writeln('Field 2: ',Field2.GetValue);
  97.          writeln('Field 3: ',Field3.GetValue);
  98.          writeln('Field 4: ',Field4.GetValue);
  99.          writeln('Field 5: ',Field5.GetValue);
  100.          writeln('Field 6: ',Field6.GetValue);
  101.       end
  102.       else
  103.       begin
  104.          GotoXY(1,20);
  105.          writeln('You escaped!');
  106.       end;
  107.       DisposeVars;
  108.       Done;
  109.    end;
  110. end.